Chimeric Pho4 data analyzer

Flow cytometry data is generated by Emily O’Brien with help from Lindsey Snyder. Data was collected in 2022.03-04.

For QC plots, see here.

Prepare data

Selecting and plotting Pho4 chimera results

Plot

Summary plot

p3 <- meta %>% 
  inner_join(datsum, by = "plasmid") %>% 
  mutate(Pho4 = ifelse(symbol == "SSSSS", "ScPho4", ifelse(symbol == "CCCCC", "CgPho4", "Chimera")),
         Pho4 = factor(Pho4, levels = c("ScPho4", "CgPho4", "Chimera")),
         `nR/G_PHO2` = round(`nR/G_PHO2`, digits = 2),
         `nR/G_pho2∆` = round(`nR/G_pho2∆`, digits = 2)) %>% 
  ggplot(aes(x = `nR/G_PHO2`, y = `nR/G_pho2∆`, label = symbol, color = Pho4)) + 
  geom_point(size = 2.5) + geom_abline(slope = 1) +
  scale_color_manual(values = c("ScPho4" = "blue3", "CgPho4" = "forestgreen", Chimera = "black")) +
  #scale_x_sqrt() + scale_y_sqrt() +
  theme_gray(base_size = 14)
ggplotly(p3, tooltip = c("label", "x", "y"))

### Chimera lookup

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxucmVuZGVyVGFibGUobWV0YSlcbmBgYCJ9 -->

```r
renderTable(meta)